with Field_Package;         use Field_Package;
with Ball_Package;          use Ball_Package;

package TaskBall_Package is
    
    task type TaskBall (F : Field_Access; B : Ball_Access; S : Integer) is

    	pragma Priority(2);	
	
    	entry Start;
	
    	entry Stop;
	
    end TaskBall;

    type TaskBall_Access is access all TaskBall;
    
end TaskBall_Package;